home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 09-06.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  729 b   |  37 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DATA &h0000,&h00FF,&h00FF,&h00FF,&h02BB,&h0000,&h0222,&h0255
  6. DATA &h00FF,&h00FF,&h00FF,&h0055,&h00AA,&h00AA,&h00FF,&h0277
  7.  
  8. NewMode = FGbestmode(320,200,1)
  9. If NewMode < 0 OR NewMode = 12 THEN
  10.    PRINT "This program requires a 320 x 200 color graphics mode."
  11.    STOP
  12. END IF
  13.  
  14. OldMode = FGgetmode
  15. FGsetmode NewMode
  16.  
  17. IF NewMode = 4 THEN
  18.    FGpalette 0, 0
  19.    FOR ColorIndex = 0 TO 15
  20.       READ CGApattern
  21.       FGpattern ColorIndex, CGApattern
  22.    NEXT
  23. ELSEIF NewMode = 9 OR NewMode = 13 THEN
  24.    FGpattern 15, &h04F7
  25. ELSE
  26.    FGsetrgb 15, 38, 38, 38
  27. END IF
  28.  
  29. FGmove 0, 199
  30. Status = FGshowppr("CORAL.PPR"+CHR$(0),320)
  31. FGwaitkey
  32.  
  33. FGsetmode OldMode
  34. FGreset
  35.  
  36. END
  37.